home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb33725.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  80 lines
  1. ;=============337.25 ADAPTERWELLE
  2.  
  3. (EAITDBL "0033725")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:33725V1 ( / P1 Wi)
  8.    (EAITDBL "0033725")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (setvar "ORTHOMODE" 0)
  13.      (EAITbpt nil nil nil)
  14.      (setq P1 (getpoint))
  15.      (if (= P1 nil)(setq P1 (EAITrpt)))
  16.      (setvar "OSMODE" 0)
  17.      (setvar "ORTHOMODE" 1)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.      (command EAITege (strcat EAITpfn "33725V1") P1 "" "" EAITofkei pause)
  20.  
  21.      (setq Wi (EAITbw))
  22.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 350)) 40) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.      )
  25.  
  26.      (EAITvarz2)
  27.      (princ)
  28.  
  29. );defun V1
  30.  
  31.  
  32. (defun C:33725S1 ( / P1 Wi)
  33.    (EAITDBL "0033725")
  34.    (princ (strcat "\n\n" EAITbez1))
  35.      (EAITvari)
  36.      (EAITvars)
  37.      (setvar "ORTHOMODE" 0)
  38.      (EAITbpt nil nil nil)
  39.      (setq P1 (getpoint))
  40.      (if (= P1 nil)(setq P1 (EAITrpt)))
  41.      (setvar "OSMODE" 0)
  42.      (setvar "ORTHOMODE" 1)
  43.      (command EAITege (strcat EAITpfn "33725S1") P1 "" "" "")
  44.  
  45.      (setq Wi (EAITbw))
  46.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 315)) 10) "" "" ""
  47.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  48.      )
  49.  
  50.      (EAITvarz2)
  51.      (princ)
  52.  
  53. );defun S1
  54.  
  55.  
  56. (defun C:33725S2 ( / P1 Wi)
  57.    (EAITDBL "0033725")
  58.    (princ (strcat "\n\n" EAITbez1))
  59.      (EAITvari)
  60.      (EAITvars)
  61.      (setvar "ORTHOMODE" 0)
  62.      (EAITbpt nil nil nil)
  63.      (setq P1 (getpoint))
  64.      (if (= P1 nil)(setq P1 (EAITrpt)))
  65.      (setvar "OSMODE" 0)
  66.      (setvar "ORTHOMODE" 1)
  67.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  68.      (command EAITege (strcat EAITpfn "33725S2") P1 "" "" EAITofkei pause)
  69.  
  70.      (setq Wi (EAITbw))
  71.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 315)) 10) "" "" ""
  72.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  73.      )
  74.  
  75.      (EAITvarz2)
  76.      (princ)
  77.  
  78. );defun S2
  79. (princ)
  80.